﻿Imports System
Imports System.Configuration
Imports System.Collections

Imports FM.NetBouncer

''' <summary>
''' Rulesets collection in the config
''' </summary>
Public Class RuleSetCollection
    Inherits ConfigurationElementCollection

    Public Sub New()
    End Sub

    Protected Overloads Overrides Function CreateNewElement() As ConfigurationElement
        Dim RS As New RuleSet(Of String)
        Return RS
    End Function

    Protected Overrides Function GetElementKey(ByVal element As ConfigurationElement) As [Object]
        Return CType(element, RuleSet(Of String)).Name
    End Function

End Class
